1 A$="A028B100AAB10291008A910288D0F338A500E9288500A501E900850118A50269288502A5"
2 FORI=1TO95:POKE#400+I/2,VAL("#"+MID$(A$+"0369008503A501C99FD0D160",I,2)):NEXT